home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / UserStartup / Sources / PModules.Lha / PModules / PMHeader.e < prev   
Encoding:
Text File  |  1995-03-20  |  1.3 KB  |  28 lines
  1. /********************************************************************************
  2.  * Fichier      : PMheader.e
  3.  * Procédures   : - p_DoReadHeader(PTR TO header)
  4.  * Informations : Use of MHeader.m
  5.  *******************************************************************************/
  6. /*********************************************************************************/
  7. /* DEF FOR MHeader (Mheader.m must be present in your source code                */
  8. /*********************************************************************************/
  9. DEF title_req[80]:STRING
  10. /*"p_DoReadHeader(my_header:PTR TO prgheader)"*/
  11. PROC p_DoReadHeader(my_header:PTR TO prgheader) 
  12. /********************************************************************************
  13.  * Para         : Address of a prgheader struct (MHeader.m).
  14.  * Return       : NONE
  15.  * Description  : Initialise the Info Prg var.
  16.  *******************************************************************************/
  17.     DEF prg_version
  18.     DEF prg_revision
  19.     DEF prg_name[20]:STRING
  20.     DEF prg_author[20]:STRING
  21.     prg_version:=my_header.version
  22.     prg_revision:=my_header.revision
  23.     StringF(prg_name,'\s',my_header.nomprg)
  24.     StringF(prg_author,'\s',my_header.auteur)
  25.     StringF(title_req,'\s v\d.\d © \s',prg_name,prg_version,prg_revision,prg_author)
  26. ENDPROC
  27. /**/
  28.